Option Explicit
'ۭqҲ
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    With TextBox1
        If IsNumeric(.Text) Then
            Label1.Caption = CLng(.Text) * 5         'w⦡
        End If
    End With
End Sub
